home *** CD-ROM | disk | FTP | other *** search
/ Apple Developer Connection Student Program / ADC Tools Sampler CD Disk 3 1999.iso / Cool Demos, SDKs, & Tools / Demos⁄Tools⁄Offers / Curvus Pro / Curvus Pro 2.6.1 F ƒ / Modules / Créez vos propres modules! / ModuleGenerique.p < prev    next >
Encoding:
Text File  |  1997-04-27  |  1.3 KB  |  57 lines  |  [TEXT/CWIE]
  1. UNIT CodeResource;
  2.  
  3. INTERFACE
  4.  
  5.     USES
  6.         OSUtils;
  7.  
  8.     TYPE
  9.         plugInParameterNumber=RECORD
  10.             realPart,imPart:Double;                    { parties réelle et imaginaire }
  11.         END;
  12.         plugInParameterArray=ARRAY[0..0] OF plugInParameterNumber;
  13.         plugInParameterPtr=^plugInParameterArray;
  14.         plugInParameterHandle=^plugInParameterPtr;
  15.         
  16.         trigoMode=(deg,rad,grad);
  17.  
  18.     {$MAIN}
  19.     PROCEDURE main(params:plugInParameterHandle;mode:trigoMode);
  20.  
  21. IMPLEMENTATION
  22.     
  23.     USES
  24.         fp;
  25.  
  26.  
  27. { ============================================================================
  28.   Procédure principale (n'apporter les modifications qu'à cette procédure!)
  29.   
  30.     params     Paramètres en entrée (champs 1,2,...)
  31.                Résultat en retour   (champ 0)
  32.   ============================================================================ }
  33.   
  34.     PROCEDURE main(params:plugInParameterHandle;mode:trigoMode);
  35.     { ========================
  36.       Constantes, variables:
  37.       ======================== }
  38.     VAR
  39.         sum:Double;
  40.         
  41.     BEGIN
  42.     { ========================
  43.       Calcul:
  44.       ======================== }
  45.     
  46.         {...}
  47.         sum:=params^^[1].realPart        { partie réelle du premier paramètre }
  48.              +params^^[2].imPart;        { partie imaginaire du second paramètre }
  49.         
  50.     { ========================
  51.       Résultat:
  52.       ======================== }
  53.          params^^[0].realPart:=sum;
  54.          params^^[0].imPart:=0;            { toujours remplir les deux champs de params^^[0]! }
  55.     END;
  56.  
  57. END.